home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / icons / freshiconsv1.0_install / install_freshicons next >
Text File  |  1996-05-16  |  21KB  |  670 lines
  1. ; $VER: FreshIcons Installer Script 16. Mai 1996
  2. ; by Christian Taulien of Strange Intelligence
  3. ; German Language
  4. ;
  5. ; Copyright (C) 1996 Strange Intelligence
  6.  
  7. ;------------------------------------------------------
  8. ;// ****************** Variable declarations
  9. (set #iparts 0)
  10. (set #tparts 0)
  11. (set #wbset  0)
  12.  
  13. ;------------------------------------------------------
  14. ;//String declaration
  15. ;// Drawer names
  16. (set #archive     "")   ; which archive to unpack
  17. (set #destination "")   ; base-destination-directory
  18. (set #subdest     "")   ; sub-dir relative to the #destination
  19. (set #temp        "")   ; the path to the temporary directory
  20.  
  21. ;------------------------------------------------------
  22. ;// Questions-Strings
  23.  
  24. ;------------------------------------------------------
  25. ;// File Names
  26. (set #dockbrushes.lzx "dockbrushes.lzx")
  27. (set #templates.lzx   "templates.lzx")
  28. (set #work.lzx        "work.icons.lzx")
  29. (set #workbench.lzx   "workbench.icons.lzx")
  30. (set #pictures.lzx    "pictures.lzx")
  31. (set #preview.lzx     "preview.iff.lzx")
  32. (set #tools.lzx       "tools.lzx")
  33. (set #doc.lzx         "doc.lzx")
  34.  
  35. ;------------------------------------------------------
  36. ;// Help-Strings
  37. (set #help_complete     "Bei der kompletten Installation wird das gesamte FreshIcon-Paket installiert, während Sie bei der teilweisen Installation die Möglichkeit haben, genau zu bestimmen welche Teile des Paketes Sie Installieren möchten.")
  38. (set #help_partional    "Piktogramme - Die Icons an sich werden installiert\n\nTools - Es werden einige nützliche Programme installiert, die das Benutzen der FreshIcons vereinfachen\n\nBilder - Es werden Bilder installiert, die mehrere Symbole für das Erstellen eigener FreshIcons, enthalten.\n\nAnleitung - Die Anleitung für FreshIcons wird kopiert.\n\nVorschaubild - Ein PreView-Bild wird kopiert, auf dem eine FreshWorkbench zu sehen ist.")
  39. (set #help_whereto      "Hier sollen Sie angeben wohin das FreshIcon-Paket installiert werden soll. Dazu geben Sie ein Verzeichnis an, in dem dann die FreshIconsV1.0-Schublade erzeugt wird.")
  40. (set #help_ipartional   "Der Basis-Iconsatz beinhaltet alle Icons die für 'Nicht-Workbench'-Partionen ausreichen sollten.\n\nDer Workbenchsatz enthält alle Icons die auf einem Standard-Amiga mit Minimalkonfiguration (kein Software Bundle) nach der WB-Installation vorhanden sind.\n\nTemplates dienen als Schablonen für diejenigen die selbst FreshIcons malen möchten.\n\nDie Dockbrushes sind für den Toolmanager von Stefan Becker gedacht (siehe Vorschaubild).")
  41. (set #help_wbinstall    "Bei 'Ja' können sie jetzt ihre Workbench-Icons mit den neuen FreshIcons ersetzten. Dabei bestimmen Sie, welche und welche nicht verändert werden.Zusätzlich bestimmen Sie, welche Icon-Attribute übernommen werden.")
  42. (set #help_tpartional   "FI - ein Programm zum Ersetzen von Icons GUI (braucht MUI3.0).\nMWB_2_Fresh macht aus MagicWB2 Icons MagicWB1 Icons, die kompatibel zu den FreshIcons sind.\nCAFIC - ein Tool zum Erstellen von Icons aus IFF-Bildern.\nMakeDirsFromIcons erstellt Verzeichnisse für Verzeichnis-Icons, zu denen es noch kein Drawer gibt.\nAddToolType fügt ein Tooltype an 1. Stelle ein.\nLockFreshPens reserviert die FreshFarben, die von der WB aus nicht reserviert werden können. LockColors wie LockFreshPens, mit GUI (© by Torgeir Hovden)")
  43. (set #help_dpartional   "Deutsch - Es wird die deutsche Anleitung für FreshIcons installiert\nEnglish - Es wird die englische Version der Anleitung für FreshIcons installiert.")
  44. (set #help_wbbackup     "Wählen Sie 'Ja', so können sie ein Verzeichnis festlegen wo die alten Icons gesichert werden bevor die neuen Installiert werden.\n\nAchtung:\nEs wird darin KEIN zusätzliches Verzeichnis angelegt!")
  45. (set #help_backup_dest  "Hier geben Sie ein Verzeichnis an, wo die Icons Ihrer Bootpartition gesichert werden.\n\nAchtung:\nEs wird darin kein Verzeichnis extra angelegt!")
  46. (set #help_bootpart     "Geben Sie hier die Festplatte bzw. Festplattenpartition an auf der die Workbench-Piktogramme ersetzt werden sollen.")
  47. (set #help_icontype     "Hier bestimmen Sie welche Eigenschaften von den neuen FreshIcons übernommen werden sollen und welche belassen werden sollen. Das Aussehen wird auf jeden Fall erneuert.")
  48. (set #help_lockcolors   "Diese Datei bestimmt welche Farben von LockColors geschützt werden sollen")
  49. ;------------------------------------------------------
  50. ;// Zahlen-Variablen
  51. ;// Bitnummern fuer die teilweise installation
  52. (set #icons 0)
  53. (set #tools 1)
  54. (set #docs  2)
  55. (set #pics  3)
  56. (set #previ 4)
  57.  
  58. ;// Bitnummern für die teilweise - icon-installation
  59. (set #work          0)
  60. (set #workbench     1)
  61. (set #templates     2)
  62. (set #dockbrushes   3)
  63.  
  64. ;// Bitnummern für die teilweise - tool-installation
  65. (set #freshiconizer 0)
  66. (set #mwb_2_fresh   1)
  67. (set #cafic         2)
  68. (set #madifric      3)  ;//makedirsfromicons
  69. (set #addtooltype   4)
  70. (set #lockfreshpens 5)
  71. (set #lockcolors    6)
  72.  
  73. ;// Bitnummern für Workbench-Installations Parameter
  74. (set #b_type        0)
  75. (set #b_tooltypes   1)
  76. (set #b_position    2)
  77. (set #b_deftool     3)
  78. (set #b_stacksize   4)
  79.  
  80. ;// Bitnummern für die teilweise - dokumentations-installation
  81. (set #deutsch       0)
  82. (set #english       1)
  83. ;------------------------------------------------------
  84. ;// ***************** Procedure declarations ***************
  85. ;// unpack-lzx
  86. (procedure @unpack
  87.     (if (= #subdest "/")
  88.         (set #unpackto (cat    #destination "/"))
  89.         (set #unpackto (tackon #destination #subdest))
  90.     )
  91.     (run
  92.         (cat "lzx " "x " "archives/" #archive
  93.             (' "%s"' #unpackto)
  94.         )
  95.     )
  96. )
  97.  
  98. ; // find path to a temporary directory
  99. (procedure @maketemp
  100.     (if (<> (exists
  101.                 ("T:")
  102.                 (noreq)
  103.             ) 2)
  104.         (if (<> (exists ("Ram:T")) 2)
  105.             (
  106.                 (makedir ("ram:t"))
  107.                 (if (<>(exists ("ram:t")) 2)
  108.                     (abort "Konnte temporäres Verzeichnis nicht lokalisieren!")
  109.                     (set #temp "ram:t")
  110.                 )
  111.             )
  112.             (set #temp "ram:t") ;// else "ram:t" exists
  113.         )
  114.         (set #temp "T:") ;// else "T:" exists
  115.     )
  116.  
  117.     (set #temp (tackon #temp "freshicons_temp"))
  118.     (makedir #temp)
  119.     (if (<> (exists (#temp)) 2)
  120.         (abort "Konnte temporäres Verzeichnis nicht erstellen!")
  121.     )
  122.     (trap 255 @CleanUp)
  123. )
  124. ;// leert das temp-verzeichnis
  125. (procedure @cleartemp
  126.     (run
  127.         (cat "delete " "force " "all " "quiet " (tackon #temp "#?"))
  128.     )
  129. )
  130.  
  131. ;// löscht das temp-verzeichnis
  132. (procedure @deletetemp
  133.     (run
  134.         (cat "delete " "force " "all " "quiet " #temp)
  135.     )
  136. )
  137.  
  138. ;// kopiert die ganzen Icons
  139. (procedure @copyicons
  140.     (makedir (tackon #destination "Icons")
  141.         (prompt "Erzeuge Icon-Schublade")
  142.     )
  143.  
  144.     (set #subdest "Icons/")
  145.  
  146.     (complete 21)
  147.     (copyfiles
  148.         (source "stuff/icons.info")
  149.         (dest #destination)
  150.         (files)
  151.     )
  152.  
  153.     (complete 22)
  154.     (if (= #installtype 1)
  155.         (set #iparts
  156.             (askoptions
  157.                 (prompt "Welche Icons sollen installiert werden?" )
  158.                 (default 15)
  159.                 (choices "Basis-Iconsatz" "Workbench-Iconsatz" "Schablonen-Icons (Templates)" "Toolmanager-Dockbrushes")
  160.                 (help #help_ipartional)
  161.             )
  162.         )
  163.         (set #iparts 15)
  164.     )
  165.  
  166.     (complete 24)
  167.     (if (in #iparts #work)
  168.         (
  169.             (set #archive #work.lzx)
  170.             (working "Entpacke die Icon-Archive...\nBasis-Iconsatz")
  171.             (@unpack)
  172.             (set comando
  173.                 (cat ('"%s"' (tackon #destination "Icons/work/drawers/")))
  174.             )
  175.             (working "Erzeugen einiger Verzeichnisse...")
  176.             (run (cat "makedirsfromicons " comando))
  177.         )
  178.     )
  179.  
  180.     (complete 26)
  181.     (if (in #iparts #workbench)
  182.         (
  183.             (set #archive #workbench.lzx)
  184.             (working "Entpacke die Icon-Archive...\nWorkbench-Iconsatz")
  185.             (@unpack)
  186.             (set #wbset 1)
  187.         )
  188.     )
  189.  
  190.     (complete 27)
  191.     (if (in #iparts #templates)
  192.         (
  193.             (set #archive #templates.lzx)
  194.             (working "Entpacke die Icon-Archive...\nTemplates")
  195.             (@unpack)
  196.         )
  197.     )
  198.  
  199.     (complete 28)
  200.     (if (in #iparts #dockbrushes)
  201.         (
  202.             (set #archive #dockbrushes.lzx)
  203.             (working "Entpacke die Icon-Archive...\nDockbrushes")
  204.             (@unpack)
  205.         )
  206.     )
  207. )
  208.  
  209. ;// kopiert die Tools-Schublade
  210. (procedure @copytools
  211.     (complete 31)
  212.     (@cleartemp)
  213.     (working "Entpacke das Tools-Archiv...")
  214.     (set comando
  215.             (cat "lzx " "x " "archives/" #tools.lzx
  216.                 (' "%s/"' #temp)
  217.             )
  218.     )
  219. ;    (message comando)
  220.     (run comando)
  221.  
  222.     (complete 32)
  223.     (copyfiles
  224.         (source "Stuff/FreshFarben16")
  225.         (dest #destination )
  226.         (infos)
  227.     )
  228.  
  229.     (complete 33)
  230.     (makedir (tackon #destination "Tools")
  231.         (prompt "Erzeuge Tools-Schublade")
  232.     )
  233.  
  234.     (complete 34)
  235.     (copyfiles
  236.         (source (tackon #temp "Tools.info"))
  237.         (dest #destination)
  238.         (files)
  239.     )
  240.  
  241.     (complete 35)
  242.     (if (= #installtype 1)
  243.         (set #tparts
  244.             (askoptions
  245.                 (prompt "Welche Tools sollen installiert werden?" )
  246.                 (default 127)
  247.                 (choices "FI (FreshIconizer)" "MWB_2_Fresh" "CAFIC" "MakeDirsFromIcons" "Addtooltype" "LockFreshPens" "LockColors")
  248.                 (help #help_tpartional)
  249.             )
  250.         )
  251.         (set #tparts 127)
  252.     )
  253.  
  254.     (complete 36)
  255.     (if (in #tparts #freshiconizer)
  256.         (
  257.             (working "Kopiere den FreshIconizer...")
  258.             (copyfiles
  259.                 (source (tackon #temp "Tools"))
  260.                 (pattern "fi#?")
  261.                 (dest (tackon #destination "Tools"))
  262.                 (infos)
  263.             )
  264.             (if (<> (exists (tackon #destination "Tools/Catalogs")) 2)
  265.                 (makedir (tackon #destination "Tools/Catalogs"))
  266.                 (makedir (tackon #destination "Tools/Catalogs/deutsch"))
  267.             )
  268.             (copyfiles
  269.                 (source (tackon #temp "Tools/catalogs/deutsch/freshiconizer.catalog"))
  270.                 (dest (tackon #destination "Tools/Catalogs/Deutsch"))
  271.             )
  272.         )
  273.     )
  274.  
  275.     (complete 38)
  276.     (if (in #tparts #mwb_2_fresh)
  277.         (
  278.             (working "Kopiere MWB_2_Fresh...")
  279.             (copyfiles
  280.                 (source (tackon #temp "Tools/MWB_2_Fresh"))
  281.                 (dest (tackon #destination "Tools"))
  282.                 (infos)
  283.             )
  284.         )
  285.     )
  286.     (complete 40)
  287.     (if (in #tparts #cafic)
  288.         (
  289.             (working "Kopiere CAFIC...")
  290.             (copyfiles
  291.                 (source (tackon #temp "Tools"))
  292.                 (pattern "CAFIC#?")
  293.                 (dest (tackon #destination "Tools"))
  294.                 (infos)
  295.             )
  296.             (if (<> (exists (tackon #destination "Tools/Catalogs")) 2)
  297.                 (makedir (tackon #destination "Tools/Catalogs"))
  298.                 (makedir (tackon #destination "Tools/Catalogs/deutsch"))
  299.             )
  300.             (copyfiles
  301.                 (source (tackon #temp "Tools/catalogs/deutsch/cafic.catalog"))
  302.                 (dest (tackon #destination "Tools/Catalogs/Deutsch"))
  303.             )
  304.         )
  305.     )
  306.     (complete 42)
  307.     (if (in #tparts #madifric)
  308.         (
  309.             (working "Kopiere MakeDirsFromIcons...")
  310.             (copyfiles
  311.                 (source (tackon #temp "Tools/MakeDirsFromIcons"))
  312.                 (dest (tackon #destination "Tools"))
  313.                 (infos)
  314.             )
  315.         )
  316.     )
  317.     (complete 44)
  318.     (if (in #tparts #addtooltype)
  319.         (
  320.             (working "Kopiere AddToolType...")
  321.             (copyfiles
  322.                 (source (tackon #temp "Tools"))
  323.                 (pattern "AddToolType#?")
  324.                 (dest (tackon #destination "Tools"))
  325.                 (infos)
  326.             )
  327.         )
  328.     )
  329.     (complete 46)
  330.     (if (in #tparts #lockfreshpens)
  331.         (
  332.             (working "Kopiere den FreshIconizer...")
  333.             (copyfiles
  334.                 (source (tackon #temp "Tools/LockFreshPens"))
  335.                 (dest (tackon #destination "Tools"))
  336.                 (infos)
  337.             )
  338.         )
  339.     )
  340.     (complete 48)
  341.     (if (in #tparts #lockcolors)
  342.         (
  343.             (working "Kopiere den FreshIconizer...")
  344.             (copyfiles
  345.                 (source (tackon #temp "Tools/LockColors"))
  346.                 (dest (tackon #destination "Tools"))
  347.                 (infos)
  348.             )
  349.             (if (<> (exists (tackon #destination "Tools/s")) 2)
  350.                 (makedir (tackon #destination "Tools/s"))
  351.             )
  352.             (copyfiles
  353.                 (source (tackon #temp "Tools/s/lockcolors.cfg"))
  354.                 (dest (tackon #destination "Tools/s"))
  355.             )
  356.             (copyfiles
  357.                 (source (tackon #temp "Tools/s/lockcolors.cfg"))
  358.                 (dest "s:")
  359.                 (confirm expert)
  360.                 (prompt "Kopieren der LockColors-Konfigurationsdatei")
  361.                 (Help #help_lockcolors)
  362.             )
  363.         )
  364.     )
  365.     (@cleartemp)
  366. )
  367.  
  368. ;// kopiert die Docs-Schublade
  369. (procedure @copydocs
  370.     (complete 61)
  371.     (@cleartemp)
  372.     (working "Entpacke das Docs-Archiv...")
  373.     (set #comando
  374.             (cat "lzx " "x " "archives/" #doc.lzx
  375.                 (' "%s/"' #temp)
  376.             )
  377.     )
  378. ;    (message #comando)
  379.     (run #comando)
  380.  
  381.     (complete 62)
  382.     (makedir (tackon #destination "Doc")
  383.         (prompt "Erzeuge Doc-Schublade")
  384.     )
  385.  
  386.     (complete 64)
  387.     (copyfiles
  388.         (source (tackon #temp "Doc.info"))
  389.         (dest #destination)
  390.         (files)
  391.     )
  392.  
  393.     (complete 68)
  394.     (if (= #installtype 1)
  395.         (set #dparts
  396.             (askoptions
  397.                 (prompt "Welche Anleitungen sollen installiert werden?" )
  398.                 (default 1)
  399.                 (choices "Deutsch" "Englisch")
  400.                 (help #help_dpartional)
  401.             )
  402.         )
  403.         (set #dparts 1)
  404.     )
  405.  
  406.     (complete 72)
  407.     (if (in #dparts #deutsch)
  408.         (
  409.             (working "Kopiere die deutsche Anleitung...")
  410.             (copyfiles
  411.                 (source (tackon #temp "Doc/FreshIcons_D.Guide"))
  412.                 (dest (tackon #destination "Doc"))
  413.                 (infos)
  414.             )
  415.         )
  416.     )
  417.  
  418.     (complete 76)
  419.     (if (in #dparts #english)
  420.         (
  421.             (working "Kopiere die englische Anleitung...")
  422.             (copyfiles
  423.                 (source (tackon #temp "Doc/FreshIcons_E.Guide"))
  424.                 (dest (tackon #destination "Doc"))
  425.                 (infos)
  426.             )
  427.         )
  428.     )
  429.     (@cleartemp)
  430. )
  431.  
  432. ;// kopiert die Bilder-Schublade
  433. (procedure @copypics
  434.     (complete 80)
  435.     (set #archive #pictures.lzx)
  436.     (set #subdest "/")
  437.     (working "Entpacke das Bilder-Archiv...")
  438.     (@unpack)
  439. )
  440.  
  441. ;// kopiert des Preview-Bildes
  442. (procedure @copyprevi
  443.     (complete 90)
  444.     (set #archive #preview.lzx)
  445.     (set #subdest "/")
  446.     (working "Entpacke das Vorschau-Bild...")
  447.     (@unpack)
  448. )
  449.  
  450. ;// Sichert die alten Icons
  451. (procedure @wbbackup
  452.     (complete 94)
  453.  
  454.     (set #backdir
  455.         (askdir
  456.             (prompt "Wohin wolllen sie die WB-Piktogramme sichern?")
  457.             (help #help_backup_dest)
  458.             (disk)
  459.             (default "T:")
  460.         )
  461.     )
  462.  
  463.     (if (<> ":" (substr #backdir (- (strlen #backdir) 1) 1))
  464.         (set #backdir (cat #backdir "/"))
  465.     )
  466.     (set comando
  467.         (cat "wb_icons_backup.bat"
  468.             (' quelle="%s"' #bootpartition)
  469.             (' ziel="%s"' #backdir)
  470.         )
  471.     )
  472.     (complete 95)
  473.     (working
  474.         (cat "Sichere Workbenchpiktogramme...\n"
  475.              "nach\n\n"
  476.              ('"%s"' #backdir)
  477.         )
  478.     )
  479.     (execute comando)
  480. )
  481.  
  482. ;// Aufruf des wb-install-shellskriptes
  483. (procedure @wbinstall
  484.     (complete 96)
  485.  
  486.     (if (in #params #b_type)
  487.         (set #type "2")
  488.         (set #type "0")
  489.     )
  490.  
  491.     (if (in #params #b_tooltypes)
  492.         (set #tooltypes "2")
  493.         (set #tooltypes "0")
  494.     )
  495.  
  496.     (if (in #params #b_position)
  497.         (set #position "2")
  498.         (set #position "0")
  499.     )
  500.  
  501.     (if (in #params #b_deftool)
  502.         (set #deftool "2")
  503.         (set #deftool "0")
  504.     )
  505.  
  506.     (if (in #params #b_stacksize)
  507.         (set #stacksize "2")
  508.         (set #stacksize "0")
  509.     )
  510.  
  511.     (complete 97)
  512.     (set #sourcedir (cat #destination "/icons/WB/"))
  513.     (set comando
  514.         (cat "wb_install.bat"
  515.             (' quelle="%s"' #sourcedir)
  516.             (' ziel="%s"' #bootpartition)
  517.             " type=" #type
  518.             " tooltypes=" #tooltypes
  519.             " position=" #position
  520.             " deftool=" #deftool
  521.             " stacksize=" #stacksize
  522.         )
  523.     )
  524.     (complete 98)
  525.     (working "Modifiziere\nWorkbenchpiktogramme...")
  526.     (execute comando)
  527. )
  528.  
  529. ;------------------------------------------------------
  530. ;// Delete any files from Ram and temporary Ram Drawer
  531. (procedure @CleanUp
  532.     (@deletetemp)
  533. )
  534.  
  535. ;------------------------------------------------------
  536. ; ### Main
  537. (complete 0)
  538.     (welcome)
  539. (complete 5)
  540.     (@maketemp)
  541.     (onerror ((@CleanUp) (exit)))
  542.     (set #destination
  543.         (askdir
  544.             (prompt "Wo soll FreshIcons installiert werden?\n(Es wird ein Verzeichnis erstellt).")
  545.             (help #help_whereto)
  546.             (default "SYS:")
  547.         )
  548.     )
  549.  
  550.     (if (<> (exists (#destination)) 2)
  551.         (abort "Sie haben ein falsches Ziel angegeben!\nDie Installation wird deshalb abgebrochen.")
  552.     )
  553.  
  554.     (makedir (tackon #destination "FreshIconsV1.0")
  555.         (prompt "Erzeuge FreshIcon-Schublade")
  556.     )
  557. (complete 10)
  558.  
  559.     (copyfiles
  560.         (source "/FreshIconsV1.0_Install.info")
  561.         (dest #destination)
  562.         (newname "FreshIconsV1.0.info")
  563.         (files)
  564.     )
  565.  
  566.     (set #destination (tackon #destination "FreshIconsV1.0"))
  567.  
  568.     (set #installtype
  569.         (askchoice
  570.             (prompt "Wie soll die Installation verlaufen?")
  571.             (default 0)
  572.             (choices "Komplette Installation" "Teilweise Installation")
  573.             (help #help_complete)
  574.         )
  575.     )
  576.  
  577. (complete 15)
  578.     (if (= #installtype 1)
  579.         (set #parts
  580.             (askoptions
  581.                 (prompt "Teilweise-Install" )
  582.                 (default 31)
  583.                 (choices "Piktogramme" "Tools" "Anleitung" "Bilder" "Vorschaubild")
  584.                 (help #help_partional)
  585.             )
  586.         )
  587.         (set #parts 31)
  588.     )
  589.  
  590. (complete 20)
  591.     (if (in #parts #icons)
  592.         (@copyicons)
  593.     )
  594. (complete 40)
  595.     (if (in #parts #tools)
  596.         (@copytools)
  597.     )
  598. (complete 60)
  599.     (if (in #parts #docs)
  600.         (@copydocs)
  601.     )
  602. (complete 80)
  603.     (if (in #parts #pics)
  604.         (@copypics)
  605.     )
  606. (complete 90)
  607.     (if (in #parts #previ)
  608.         (@copyprevi)
  609.     )
  610.     (if (<> #wbset 0)
  611.         (if (askbool
  612.                 (prompt "Sie haben den Workbench-Icon-Satz auch installiert. Möchten Sie nun ein automatisches Ersetzen der Standard-Piktogramme auf der Bootpartition durchführen? (Es besteht die Möglichkeit ein Backup von den alten Icons zu machen!)")
  613.                 (choices "Ja" "Nein")
  614.                 (help #help_wbinstall)
  615.             )
  616.             ;// then
  617.             (
  618.                 (complete 91)
  619.                 (set #params
  620.                     (askoptions
  621.                         (prompt "Welche Piktogrammmerkmale sollen von den neuen Icons übernommen werden?" )
  622.                         (default 5)
  623.                         (choices "Piktogrammtyp" "Tooltypes" "Position" "Standardprogramm" "Stackgröße")
  624.                         (help #help_icontype)
  625.                     )
  626.                 )
  627.                 (complete 92)
  628.                 (if (> #params 0)
  629.                     ;// then
  630.                     (
  631.                         ;// then
  632.                         (set #bootpartition
  633.                             (askdir
  634.                                 (prompt "Wie heißt Ihre Boot-(Workbench-)Partition?")
  635.                                 (help #help_bootpart)
  636.                                 (disk)
  637.                                 (default "SYS:")
  638.                             )
  639.                         )
  640.                         ;// else
  641.                         (complete 93)
  642.                         (if (<> (exists (#bootpartition)) 2)
  643.                             ;// then
  644.                             (abort "Sie haben ein falsches Ziel angegeben!\nDie Installation wird deshalb abgebrochen.")
  645.                             ;// else
  646.                             (
  647.                                 (if (<> ":" (substr #bootpartition (- (strlen #bootpartition) 1) 1))
  648.                                     (set #bootpartition (cat #bootpartition "/"))
  649.                                 )
  650.                                 (if (askbool
  651.                                         (prompt "Möchten Sie Ihre alten Piktogramme sichern?")
  652.                                         (choices "Ja" "Nein")
  653.                                         (help #help_wbbackup)
  654.                                     )
  655.                                     ;// then
  656.                                     (@wbbackup)
  657.                                 )
  658.                                 (complete 96)
  659.                                 (@wbinstall)
  660.                             )
  661.                         )
  662.                     )
  663.                 )
  664.             )
  665.         )
  666.     )
  667.     (complete 99)
  668.     (@CleanUp)
  669. (complete 100)
  670.